home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / PModules / argarray / argstring.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-19  |  449 b   |  26 lines
  1. *
  2. * argstring.asm
  3. *
  4. * binary source for EPP Module argarray.e
  5. *
  6.     opt l-    ; non-linkable, keep other default optimisations
  7.  
  8.     include    asmsupp.i
  9.     include    workbench/icon_lib.i
  10.  
  11. ArgString
  12.     cargs    #0,ttypes.l,entry.l,default.l,resultptr.l,iconbase.l
  13.     movem.l    default(sp),d2/a2
  14.     move.l    (sp),d0
  15.     beq.s    _default
  16.     movea.l    d0,a0
  17.     movea.l    entry(sp),a1
  18.     movea.l    iconbase(sp),a6
  19.     CALLSYS    FindToolType
  20.     tst.l    d0
  21.     bne.s    end
  22. _default
  23.     move.l    d2,d0
  24. end    move.l    d0,(a2)
  25.  
  26.